[VB解题]编写一个程序，判断随机生成的10个三位正整数是否是降序数

来源：百度知道 编辑：UC知道 时间：2024/09/25 14:26:24
所谓降序数是指百位数大于十位数且十位数大于个位数的数
单击"执行"按钮，随机生成10个三位正整数，显示在左边的列表框中
程序中应包含一个名为jx的函数过程，用于判断一个正整数是否为降序数

Private Sub command1_click()
Dim i As Integer, r As String, n As Integer
List1.Clear
For i = 1 To 10
n = Int(Rnd * 900 + 100)
r = CStr(n) & jx(n)
List1.AddItem r
Next i
End Sub
Private Function jx(ByVal n As Integer) As String
If (n \ 100) > ((n \ 10) Mod 10) And ((n \ 10) Mod 10) > (n Mod 10) Then
jx = "是降序数"
Else
jx = "不是降序数"
End If
End Function